home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / mxlibs / mdss040a / live / readme.txt < prev    next >
Text File  |  1994-12-25  |  3KB  |  120 lines
  1.     WEND
  2.             MOUSEEXIT
  3.             VIDEOMODESET VMODE
  4.             END
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.                                                                          86
  46.  
  47.  
  48.  
  49.  
  50.  
  51.           MOUSECURSORDEFAULT
  52.  
  53.             PROTOTYPE
  54.  
  55.             SUB MOUSECURSORDEFAULT ()
  56.  
  57.             INPUT
  58.  
  59.             no input parameters
  60.  
  61.             OUTPUT
  62.  
  63.             no value returned
  64.  
  65.             USAGE
  66.  
  67.             MOUSECURSORDEFAULT defines the mouse cursor to be a small
  68.        ,K$╖┼╘╤░XQ)σ┤ö≡÷┴─┤àñT┘,╘¬àñX9╘⌠àñ\9╘UÜ╢≤`9╘4a╘d9╘UTa╘h9╘ta╘l9╘Uöa╘p9╘┤a╘t┘PT±x┴îÇ╖0▓ïα│ÅαU┤ôα╡ùα╢¢α╖úΓ╘pǺΓ╕¡αë ╚┴πì°sKÉφb<$⌡▌ë     φë φë I1φë  Eφë $YφÆë (mφë ,üφë 0$òφë á⌐φë ñ╜φë I¿╤φë ¼σφë ░∙φÆë 4²ë ┤!²ë ╕$5²ë ╝I²ë └]²ë ⌐8q²ë <àⁿΦiǬ∙PÖÇ ¥Ç
  69. ⁿ░╨â@%8@ΓΦá╝╤░≡cÑÅ*$░╕≡ż≡τ╥m¿⌡ε    ╨@#µ≈$âh$âαra╨à`¥è∩Ç%Ç +─▀ TîcOî∩â°1<@  [$¿Ç¼ MMl·0ƒ Y¼─!%6a▐è ¥ì ßá+?±  P<îaTTV ╪iÇ¡≥░ `_ñ»%Çá᪠P█º»ε`éa∙É%H«┴íA%Gár∙É
  70. iw∙Éiφ`╧≥≡╤Çmⁿ▒
  71. ]ÆAáσw7░⌡∩    $·╟Ç√É&^`  ┐ $ⁿ  $■ $╒ nk$J-ÉQ1£PéBù »0αQ/Ñ4╜£░ºP≈Ñ4Ç⌡$(ª▀$@C]Æé≈└╕_SÇçÑ4=iÉ⌠ä╣<_np@Ñ45ò▒Y3ü¼Qí░.i>╠@5+┴╙É╛╙$@ #┴@«╦
  72. $╤
  73. #@Ñú4,p&e÷ü¼_ÇQºÑ4òQ  ü@;¡_áQ@e╠≥@mp!┤a╘O░√`Pñź ÇT°8ÿ!¼Åñ$½╙"q¿ PñCÇ¿α√└╥░eT"ß<p°%Pæ(╧%pδ¥/OêW0Ǽbφ φ B@[â¼8â≥µ≤(    ¿⌡%(Ç∩áTÿp+ óÜ▓0!Σ±(1±░┤ÖÇD└D0Å╡`   $ «îO@╧1
  74. a╝╤j-0ñ│`@╖bΦaT1═⌠╝╤Σ²¼±,1öíî9lÿ28ÇÅ`Γî¿P²$,N0┴O0a╫δ≤0σú`°î╖#0δ≡└X▄1»Σî(▒¥Ç█Ñ"qá√1CÇú╟╨º Å
  75. FT Θ²î└1ÇY0    w ²à░$@AÅ`╦Φ¼╘`▄1A  }┐Ç*5 ΩSδδî`¼îaδæ¼î5 1¿⌡Ω╜⌠ ¼¥╬ü└Qî1S╛≤î9╨iÇ,∙PU(}Ç$üÇ àÇ`σìÇ`QαÜBO$%ÿÇ╧"$Ç«Ç]É.┬\`%WÉ$  W0 ÄâO0]αG┬ur╩░£▒Q¢ú╔Ç≡°s?`X0╘`@ µWâ@╣aá εdq`¥9?Ç&+o0µyÄΣAÅuV(7P╬±@IdQ╕@Å┤@;Ç▓?Çò│CÇ┤╟╨╡KÇÄ30ⁿφ° ó╬ì+]Ä╦≡     Mö╝σ ²y5<!└▀óâ╝É3~mp    $<╛≤9Æ-2ⁿ≡@T,╞Σa,)Pæ└¥#¼╪Q┤S(¼@Aîa≡╤@Ö²±⌠KëD─┴▒▀0╨Ñ$╩-0 ╨ê*╙▓edm`î=3Kß-10è=≥≤²└£mîjy ÿe²ⁿ╨i╕e▓ΣmαÖ╢C%Ç*ê*0 EátQZ`mÄLP%    °üⁿªüNQ∙  T¿<qtWΩc z░ÅÇñΩçǪçÇ«;└<┐á¼¥. á?<Σscî)áí := 0;
  76.       end;
  77.     end;
  78.   end;
  79.   WaitToGo;
  80. end; { UserLineStylePlay }
  81.  
  82.  
  83. procedure SayGoodbye;
  84. { Say goodbye and then exit the program }
  85. var
  86.   ViewInfo : ViewPortType;
  87. begin
  88.   MainWindow('');
  89.   GetViewSettings(ViewInfo);
  90.   SetTextStyle(TriplexFont, HorizDir, 4);
  91.   SetTextJustify(CenterText, CenterText);
  92.   with ViewInfo do
  93.     OutTextXY((x2-x1) div 2, (y2-y1) div 2, 'That''s all folks!');
  94.   StatusLine('Press any key to quit...');
  95.   repeat until KeyPressed;
  96. end; { SayGoodbye }
  97.  
  98.  
  99. PROCEDURE SelectMode;
  100. VAR
  101.     choice1,choice2     : CHAR;
  102.    xsize,ysize            : WORD;
  103. BEGIN
  104.     (* Let's select a mode *)
  105.     ClrScr;
  106.     WriteLn('VESADEMO:');
  107.     WriteLn('1. 256 colors');
  108.     WriteLn('2. 32768 colors');
  109.     WriteLn('3. 65536 colors');
  110.     WriteLn('4. 16777216 colors');
  111.     WriteLn('Q uit');
  112.     WriteLn;
  113.     Write('Your choice: ');
  114.     REPEAT
  115.         ReadLn(choice1);
  116.       IF choice1 <> '1' THEN BEGIN
  117.           WriteLn('Sorry !');
  118.          WriteLn('This demo wasn''t written for more as 256 colors !');
  119.          WriteLn('You would only get a limited impression of the Hi-& TrueColor modes...');
  120.          WriteLn('Switching to 256 co